home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / INCX.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  2.5 KB  |  32 lines
  1.  
  2. *INCREMENT DOUBLE                                                               
  3. *                                                                               
  4. INCX   $MACRO  A         INCREMENT DOUBLE                                       
  5.        $VAR ST,SP,SM                                                            
  6.        $ASG '*+' TO SP.S                                                        
  7.        $ASG '*-' TO SM.S                                                        
  8.        $ASG '*' TO ST.S                                                         
  9.        $IF  A.L=0                                                               
  10.        ADD  ONE,0        INCREMENT AC                                           
  11.        $ELSE                                                                    
  12.        $IF A.SV=SM.SV                                                           
  13.        ZALS *-                                                                  
  14.        ADDH *+           LOAD '*-'                                              
  15.        ADD  ONE,0        INCREMENT                                              
  16.        SACX *-           SAVE '*-'                                              
  17.        $ELSE                                                                    
  18.        $IF A.SV=SP.SV                                                           
  19.        LDAX *            LOAD '*'                                               
  20.        ADD  ONE,0        INCREMENT                                              
  21.        SACX *+           SAVE '*+'                                              
  22.        $ELSE                                                                    
  23.        $IF A.SV=ST.SV                                                           
  24.        LDAX *            LOAD '*'                                               
  25.        ADD  ONE,0        INCREMENT                                              
  26.        SACX *            SAVE '*'                                               
  27.        $ELSE                                                                    
  28.        LDAX :A:          LOAD :A:                                               
  29.        ADD  ONE,0        INCREMENT                                              
  30.        SACX :A:          SAVE :A:                                               
  31.        $ENDIF                                                                   
  32.        $END